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-- Imagelnfo.mesa; edited by Sandman, May 25, 1978 12:17 PM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [PageSize], 
AUoFileDefs: FROM "a1 tof il edef s" USING [FP], 
BcdDefs: FROM "bcddefs" USING [ 

FTHandle, FTIndex, FTNull , FTSelf, MTIndex, MTHandle, NameString, 

SGIndex, SGHandle, VersionStamp] , 
ControlDefs: FROM "controldef s" USING [ 

FrameCodeBase, GFT, GFTItem, GlobalFrame, NullGlobalFrame] , 
DirectoryDef s : FROM "directorydef s" USING [EnumerateDirectory] , 
ImageFilelnf oDef s : FROM "imagef ileinfodef s" , 
ImageDefs: FROM "imagedefs" USING [ImageHeader] , 
LoaderBcdUtilDefs: FROM "loaderbcdutil def s" USING [ 

BcdBase, EnumerateModuleTable, EnumerateSegTable] , 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdAddress, Configlndex, ConfigNull, EnumerationDirection, LoadState, 

LoadStateGFT, Relocation], 
MiscDefs: FROM "miscdefs" USING [Zero], 
SDDefs: FROM "sddefs" USING [SD, sGFTLength], 
SegmentDefs: FROM "segmentdef s" USING [ 

AddressFromPage, DeleteFileSegment , FileHandle, FileSegmentAddress, 

Fi leSegmentObject , InsertFile, NewFile, NewFi leSegment , OldFileOnly, 

Read, Swapin, SwapOut, Unlock, VMtoFileSegment] , 
StringDefs: FROM "stringdefs" USING [ 

AppendSubString, EquivalentSubStrings , Substring, SubS tringDescriptor], 
SystemDefs: FROM "systemdefs" USING [ 

Al locateHeapNode, Al locateResidentPages , FreeHeapNode, FreeSegment]; 

DEFINITIONS FROM ImageFi lelnf oDef s ; 

Imagelnfo: PROGRAM 

IMPORTS DirectoryDefs, ImageFilelnf oDefs , LoaderBcdUtilDefs, MiscDefs, SegmentDefs, StringDefs, Syste 
♦*mDefs 

EXPORTS ImageFilelnfoDefs, LoadStateDefs 

SHARES ImageDefs = BEGIN 

Setlmage: PUBLIC PROCEDURE [name: STRING] ■ 
BEGIN OPEN SegmentDefs; 
ClearFileObjectTable[]; 
ClearFrameObjectTable[] ; 

IF headerSeg # NIL THEN Del eteFil eSegment[headerSeg]; 

headerSeg <- NewFileSegment[NewFile[name, Read, OldFileOnly], 1, 1, Read]; 
SwapIn[headerSeg] ; 
In itImageLoadSt ate [headerSeg]; 
Initial izeImageCache[headerSeg] ; 
Unlock[headerSeg] ; 
RETURN 
END; 

headerSeg: FileSegmentHandle ^ NIL; 

Version: PUBLIC PROCEDURE RETURNS [v: BcdDefs .VersionStamp] » 
BEGIN OPEN SegmentDefs; 
image: POINTER TO ImageDefs . ImageHeader ; 
IF headerSeg = NIL THEN RETURN[[FALSE , 0. 0, [0, 0]]]; 
Swap I n[ headerSeg] ; 

image +- FileSegmentAddress[headerSeg] ; 
V <- image . prefix, version; 
Unlock[headerSeg] ; 
RETURN 
END; 

HeaderSegment: PUBLIC PROCEDURE RETURNS [FileSegmentHandle] « 
BEGIN 

RETURN[headerSeg]; 
END; 

-- Global Frame Table management 

EnumerateGlobalFrames: PUBLIC PROCEDURE [ 

proc: PROCEDURE [GlobalFfcimeHandl e] RETURNS [BOOLEAN]] 

RETURNS [GlobalFrameHandle] « 

BEGIN 
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i: CARDINAL; 

frame: Global FrameHancne; 

gft: POINTER TO ARRAY [0..0) OF ControlDef s .GFTItem <- ControlDef s .GFT; 

FOR i IN [O..SDDefs.SD[SDDefs.sGFTLength]) DO 

frame ♦- READ[egft[i] .frame] ; 

IF frame ^ ControlDef s .NullGlobal Frame AND RFAD[6gf tCi ] . epbase] » 

AND proc[frame] THEN RETURN[f rame] ; 

ENDLOOP; 
RETURN[ControlDefs.NunGlobal Frame] 
END; 

GlobalFrame: TYPE = ControlDef s .Global Frame; 
globalFrame: GlobalFrame; 

VirtualGlobalFrame: PUBLIC PROCEDURE [frame: GlobalFrameHandle] 
RETURNS [GlobalFrameHandle] » 
BEGIN 

CopyRead[to: ©globalFrame, from: frame, nwords: SIZE[GTobalFrame]] ; 
RETURN[@globalFrame] 
END; 

Relocation: TYPE = LoadStateDefs . Relocation; 
BcdBase: TYPE = LoaderBcdUtilDef s .BcdBase; 
BcdAddress: TYPE = LoadStateDefs . BcdAddress ; 

EnumerationDirection: TYPE = LoadStateDefs .EnumerationDirection ; 
Configlndex: TYPE = LoadStateDefs .Configlndex ; 

loadstate: LoadStateDef s.LoadState; 
gft: LoadStateDef s.LoadStateGFT; 
nbcds: CARDINAL; 

InputLoadState: PUBLIC PROCEDURE RETURNS [Configlndex] « 
BEGIN OPEN LoadStateDefs, SegmentDefs; 
i: CARDINAL; 
Swapln[state]; 

loadstate ^ FileSegmentAddress[state] ; 

gft *- DESCRIPTOR[@loadstate.gft, READ[@SDDef s .SD[SDDef s. sGFTLength]]] ; 
nbcds ♦- 0; 
FOR i IN [O..LENGTH[gft]) DO 

IF gft[i].config ff ConfigNull THEN nbcds ^ MAX[nbcds, gf t[i] .conf ig] ; 

ENDLOOP; 
nbcds *■ nbcds + 1; 
RETURN[nbcds] 
END; 

ReleaseLoadState: PUBLIC PROCEDURE « 
BEGIN OPEN SegmentDefs; 
IF -state.swappedin THEN RETURN; 
Unlock[state]; 
IF state. lock = THEN 

BEGIN 

SwapOut[state]; 

loadstate ♦- NIL; 

nbcds *- 0; 

END; 
END; 

MapConfigToReal : PUBLIC PROCEDURE [cgfi: GFTIndex, config: Configlndex] RETURNS [rgfi: GFTIndex] 
BEGIN 

IF cgfi = THEN RETURN[0]; 
FOR rgfi IN [0 . . LENGTH[gft] ) DO 

IF gft[rgfi] = [config, cgfi] THEN RETURN [rgfi]; 

ENDLOOP; 
RETURN[0]; 
END; 

MapRealToConfig: PUBLIC PROCEDURE [rgfi: GFTIndex] RETURNS [cgfi: GFTIndex, config: Configlndex] 
BEGIN 

RETURN[gft[rgfi].gfi, gft[rgf i] . conf ig] ; 
END; 

Initial izeRelocation: PUBLIC PROCEDURE [config: Configlndex] RETURNS [rel : Relocation] « 
BEGIN 
max: CARDINAL <- 0; 
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i: GFTIndex; 

FOR i IN [0. .LENGTH[gFt]) DO 

IF gft[i].conf ig « config THEN max *- MAX[niax, gft[i].gfi]; 

ENDLOOP; 
rel <- DESCRIPTOR[SystemDefs.AnocateHeapNocle[max+l], max+1]; 
MiscDefs.Zero[BASE[re1], max+1]; 
FOR i IN [O..LENGTH[gft]) DO 

IF gft[i]. config « config THEN rel[gf t[i] .gf i] ♦- i; 

ENDLOOP; 
END; 

ReleaseRelocation: PUBLIC PROCEDURE [rel: Relocation] « 
BEGIN 

SystemDefs.FreeHeapNode[BASE[rel]]; 
END; 

BcdSegFromLoadState: PUBLIC PROCEDURE [bed: Configlndex] RETURNS [seg: FileSegmentHandle] - 
BEGIN OPEN SegmentDefs, b: loadstate .bcds[bcd] ; 
seg *- NewFileSegment[state.f ile, b.base, b. pages, Read]; 
RETURN 
END; 

EnumerateLoadStateGFT: PUBLIC PROCEDURE [ 
proc: PROCEDURE [GFTIndex, GFTIndex, Configlndex] RETURNS [BOOLEAN]] 
RETURNS [GFTIndex] » 
BEGIN 

i: GFTIndex; 
FOR i IN [0. .LENGTH[gft]) DO 

IF proc[i, gft[i].gfi, gf t[i] . config] THEN RETURN[i]; 

ENDLOOP; 
RETURN[0] 
END; 

EnumerateLoadStateBcds: PUBLIC PROCEDURE [dir: EnumerationDirection, 
proc: PROCEDURE [Configlndex, BcdAddress] RETURNS [BOOLEAN]] 
RETURNS [config: Configlndex, bed: BcdAddress] » 
BEGIN 

i: CARDINAL; 
SELECT dir FROM 
recentf irst *^ 

FOR i DECREASING IN [0..nbcds) DO 

IF proc[i, @loadstate.bcds[i]] THEN RETURN[i. @1oadstate.bcds[i]]; 
ENDLOOP; 
recentlast => 

FOR i IN [0. .nbcds) DO 

IF proc[i, @1oadstate.bcds[i]] THEN RETURN[i, @loadstate.bcds[i]]; 
ENDLOOP; 
ENDCASE; 
RETURN[LoadStateDefs.ConfigNun , NIL] 
END; 

InitlmageLoadState: PUBLIC PROCEDURE [seg: FileSegmentHandle] » 
BEGIN OPEN SegmentDefs; 
image: POINTER TO ImageDef s . ImageHeader; 
Swapln[seg] ; 

image <- FileSegmentAddress[seg]; 
state <- NewFileSegment[seg. f ile, image. prefix. initialLoadStateBase, 

image. prefix . loadStatePages , Read]; 
END; 

state: FileSegmentHandle; 

-- SymbolTable Lookup 

FTIndex: TYPE = BcdDef s . FTIndex; 
FTHandle: TYPE = BcdDef s . FTHandle; 
MTIndex: TYPE = BcdDef s .Mllndex; 
MTHandle: TYPE - BcdDef s .MTHandle; 
SGIndex: TYPE = BcdDef s .SGIndex; 
SGHandle: TYPE = BcdDef s .SGHandle; 

AddSymbolFileName: PUBLIC PROCEDURE [ 

bed: BcdBase. sgi: SGIndex, sgh: SGHandle] « 
BEGIN 

ExistingFile: PROCEDURE [f: Fileltem] RETURNS [BOOLEAN] - 
BEGIN 
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RETURN[f.fti « sgh.file]; 

END; 
f: Fileltem; 

IF sgh. class » code THEN RETURN; 
IF EnuniFi'leObjectsCExistingFile] = NIL THEN 

BEGIN 

f *- GetFileObject[]; 

ft 4- [fileHanclle: NIL, fti: sgh.file]; 

END; 
IF sgh.file - BcdDefs . FTSelf THEN 

f.fileHandle ^ SegmentDefs .VMtoFi1eSegment[bcd].f ile; 
RETURN; 
END; 

AddModuleSymbols: PUBLIC PROCEDURE [ 

bed: BcdBase, config: Configlndex, mti: MTIndex, mth: MTHandle] « 

BEGIN 

sgh: SGHandle = LOOPHOLE[bcd+bcd. sgOff set, CARDINAL]+mth. sseg ; 

SymbolFile: PROCEDURE [f: Fileltem] RETURNS [BOOLEAN] - 

BEGIN 

RETURN[f.fti = sgh.file]; 

END; 
fi: Fileltem; 
fr: Frame I tern; 

symf ile: SegmentDefs. FileHandle; 
frame: GlobalFrameHandle; 
symfile ^ 

IF (fi 4- EnumFileObjects[SymbolFile]) « NIL THEN NIL ELSE f i .f i leHandle ; 
frame <- READ[@ControlDef s.GFT[MapConf igToReal [mth. gf i . config]] .frame] ; 
fr <- GetFrameItem[]; 
fr. symbols ♦- IF symfile = NIL OR sgh. pages = THEN NIL ELSE 

SegmentDefs .NewFil eSegment[ symf ile , sgh. base, sgh.pages+sgh.extraPages, 
SegmentDefs. Read] ; 
fr. frame <- frame; 
RETURN; 
END; 

bed: BcdBase; 

FindAllSymbols: PUBLIC PROCEDURE « 
BEGIN 

LookupEachBcd: PROCEDURE [config: Configlndex, baddr: BcdAddress] 
RETURNS [BOOLEAN] = 
BEGIN 

EnterFile: PROCEDURE [sgh: SGHandle, sgi: SGIndex] 
RETURNS [BOOLEAN] « 
BEGIN 

AddSymbolFileName[bcd, sgi, sgh]; 
RETURN[FALSE]; 
END; 
DoModule: PROCEDURE [mth: MTHandle, mti: MTIndex] 
RETURNS [BOOLEAN] » 
BEGIN 

AddModuleSymbols[bcd, config, mti, mth]; 
RETURN[FALSE]; 
END; 
bcdseg: FileSegmentHandle ♦- BcdSegFromLoadState[conf ig] ; 
SegmentDefs .Swap In [bcdseg] ; 
bed ^ SegmentDefs . F ileSegmentAddress[bcdseg]; 
[] «- LoaderBcdUtilDef s .EnumerateSegTable[bcd, EnterFile]; 
LookupFiles[]; 

[] <r LoaderBcdUtilDef s.EnumerateModuleTable[bcd, DoModule]; 
ClearFileObjectTable[] ; 
RETURN[FALSE] 
END; 
[] <- InputLoadState[]; 

[] *- EnumerateLoadStateBcds[recentf irst , LookupEachBcd]; 
ReleaseLoadState[] ; 
RETURN 
END; 

SymbolSegForFrame: PUBLIC PROCEDURE [frame: GlobalFrameHandle] RETURNS [seg: FileSegmentHandle] 
BEGIN 
SymbolFile: PROCEDURE [f: Frameltem] RETURNS [BOOLEAN] - 

BEGIN 

RETURN[f .frame « frame]; 
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END; 
FindModule: PROCEDURE [mth: MTHandle, mti: BcdDefs .MTIndex] 

RETURNS [BOOLEAN] - 

BEGIN 

RETURN[mth.gfi « cgfi]; 

END; 
f: Frameltem; 

bcdseg: FileSegmentHandle; 
config: Configlndex; cgfi: GFTIndex; 
mth: MTHandle; mti: MTIndex; 
sgb: CARDINAL; 

IF frame - ControlDefs .NullGlobal Frame THEN RETURN[NIL]; 
IF (f <- EnumFrameObjects[SymbolFile]) ff NIL THEN RETURN[f .symbol s] ; 
IF Virtua1G1oba1Frame[f name]. copied THEN 

BEGIN 

original: Global FrameHandle ^ FindOriginal [frame] ; 

seg <- SymbolSegForFrame[original ]; 

AddSymbol sForCopy[frame, seg]; 

RETURN 

END; 
[] ^ InputLoadState[]; 
[config: config, cgfi: cgfi] <- 

MapRealToConf ig [Virtual Global Frame[frame] .gf i] ; 
bcdseg <- BcdSegFromLoadState[conf ig] ; 
SegmentDef s .Swap In [bed seg] ; 
bed <- SegmentDefs . FileSegmentAddress[bcdseg]; 
[mth : mth , mti : mti] ♦- 

LoaderBcdUtilDefs . EnumerateModuleTabl e[bcd , FindModule]; 
sgb ^ LOOPHOLE[bcd+bcd.sgOffset]; 
AddSymbol FileName[bcd, mth.sseg, mth .sseg+sgb]; 
LookupFiles[] ; 

AddModuleSymbols[bcd, config, mti, mth]; 
ClearFileObjectTablei]; 
ReleaseLoadState[] ; 
SegmentDefs .Unlock[bcdseg]; 
SegmentDefs .DeleteFileSegment[bcdseg]; 
RETURN[EnumFrameObjects [Symbol File]. symbols] 
END; 

FindOriginal: PUBLIC PROCEDURE [copy: GlobalFrameHandle] 
RETURNS [GlobalFrameHandle] = 
BEGIN 
Original: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] « 

BEGIN 

RETURN[f # copy AND -VirtualGl obal Frame[f] . copied AND 
SameCode[copy , f] = identical]; 

END; 
RETURN[EnumerateGlobalFrames[Original]] 
END; 

CodeMatch: TYPE = {identical, same, different}; 

SameCode: PROCEDURE [fl, f2: GlobalFrameHandle] RETURNS [CodeMatch] « 
BEGIN 

ol, o2: CARDINAL; 
si. s2: FileSegmentHandle; 
fcb: ControlDefs . FrameCodeBase; 
si <- READ[@f l.codesegment]; 
s2 <- READ[@f2.codesegment]; 
IF si 4t s2 THEN RETURN[different]; 
fcb <- READ[@fl.code]; 
IF -f cb. swappedout THEN 

ol <- fcb.codebase - 

SegmentDef s.AddressFromPage [Virtual FileSegment[sl] .VMpage] 
ELSE 

BEGIN 

f cb . swappedout <- FALSE; 

01 ^ fcb. offset: 
END; 

fcb *- READ[@f2.code]; 
IF -fcb. swappedout THEN 

02 <- fcb.codebase - 

SegmentDefs . AddressFromPage[Virtual FileSegment[s2] .VMpage] 
ELSE 
BEGIN 
fcb. swappedout ^ FALSE; 
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o2 ^ fcb. offset; 

END; 
RETURN[IF ol « o2 THEN identical ELSE same]; 
END; 

FrameToModuleNanie: PUBLIC PROCEDURE [frame: Global FrameHandle, name: STRING] 
BEGIN 

cgfi: GFTIndex; 
config: Configlndex; 
ns: BcdDef s.NameString; 
bcdseg: FileSegmentHandle; 
bed: BcdBase; 
FindModule: PROCEDURE [mth: MTHandle, mti: MTIndex] RETURNS [BOOLEAN] - 

BEGIN 

ss: StringDefs.SubStringDescriptor; 

IF cgfi IN [mth.gfi..mth.gfi+mth.ngfi) THEN 
BEGIN 

ss *■ [base: 6ns. string, offset: mth. name, length: ns .size[mth . name]] ; 
StringDefs .AppendSubString[name,@ss] ; 
RETURN[TRUE]; 
END; 

RETURN[FALSE]; 

END; 
IF frame - ControlDefs .NullGlobal Frame THEN RETURN; 
IF VirtualGlobal Frame[frame] .copied THEN 

BEGIN 

original: GlobalFrameHandle *- FindOriginal[f rame]; 

FrameToModuleName[original , name]; 

RETURN 

END; 
[] *- InputLoadState[] ; 
[config: config, cgfi: cgfi] ♦- 

MapRealToConfig[Virtual Global Frame[f rame] . gf i] ; 
bcdseg ♦- BcdSegFromLoadState[conf ig] ; 
SegmentDef s .Swapln[bcdseg] ; 
bed <- SegmentDef s.FileSegmentAddress[bcdseg] ; 
ns ♦- LOOPHOLE[bcd+bcd.ssOffset]; 

[] ♦- LoaderBcdUtilDefs.EnumerateModuleTable[bcd, FindModule]; 
ReleaseLoadState[]; 
SegmentDef s. Unlock [bcdseg]; 
SegmentDef S.Del eteFileSegmen t[bcdseg]; 
RETURN 
END; 

segment: SegmentDef s. FileSegmentObject; 

VirtualFileSegment: PUBLIC PROCEDURE [seg: FileSegmentHandle] 
RETURNS [FileSegmentHandle] » 
BEGIN OPEN SegmentDefs; 

CopyRead[to: ©segment, from: seg, nwords: SIZE[FileSegmentObject]] ; 
RETURN[6segment] 
END; 

AddSymbolsForCopy: PROCEDURE [f: GlobalFrameHandle, seg: FileSegmentHandle] = 
BEGIN 

fr: Frame I tern; 
fr «- GetFrameItem[]; 
frt i- [frame: f, symbols: seg]; 
RETURN 
END; 



-- File Lookup Object Management 

FileObject: TYPE « RECORD [ 

f ileHandl e : SegmentDefs . Fil eHandle, 
fti: BcdDefs.FTIndex]; 

Fileltem: TYPE « POINTER TO FileObject; 

FileObjectTable: TYPE "• RECORD [ 
link: POINTER TO FileObjectTable, 
subTable: ARRAY [0..0) OF FileObject]; 

fileTable: POINTER TO FileObjectTable *- NIL; 
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nFiles: CARDINAL ^ MaxNFileOb jects ; 

MaxNFileObjects: CARDINAL - (AUoDef s . PageSize-l)/SIZE[FileObJ0ct] ; 

GetFileObJect: PROCEDURE RETURNS [f: Fileltem] - 
BEGIN 

newTable: POINTER TO FileOb jectTable ; 
IF nFiles < MaxNFileObjects THEN 

BEGIN f *- @fileTab1e.subTab1e[nFnes]; nFiles ^- nFiles+1; END 
ELSE 

BEGIN 

newTable <- SystemDef s .AnocateResid0ntPages[l]; 

newTable. 1 ink <r fileTable; 

fileTable <- newTable; 

nFiles ♦- 1; 

RETURN[0fileTable.subTable[O]]; 

END; 
END; 

EnumFileObjects: PROCEDURE [proc: PROCEDURE [f: Fileltem] RETURNS [BOOLEAN]] 
RETURNS [f: Fileltem] » 
BEGIN 

i: CARDINAL; 

table: POINTER TO FileObjectTable; 
IF fileTable = NIL THEN RETURN[NIL]; 
IF nFiles < MaxNFileObjects THEN 
FOR i IN [0. .nFiles) DO 

IF proc[f <r @fileTable.subTable[i]] THEN RETURN; 
ENDLOOP; 
FOR table *- fileTable. 1 ink , table, link UNTIL table « NIL DO 
FOR i IN [0. .MaxNFileObjects) DO 

IF proc[f <- ©table. subTable[i]] THEN RETURN; 
ENDLOOP; 
ENDLOOP; 
RETURN[NIL]; 
END; 

ClearFileObjectTable: PROCEDURE =» 
BEGIN 

table: POINTER TO FileObjectTable; 
UNTIL fileTable = NIL DO 

table <- fileTable; 

fileTable <- fileTable. 1 ink; 

SystemDef s . FreeSegment[table] ; 

ENDLOOP; 
nFiles <- MaxNFileObjects; 
RETURN 
END; 

-- Frame Symbol Table Management 

FrameObject: TYPE = RECORD [ 
frame: Gl obal FrameHandle, 
symbols: FileSegmentHandle] ; 

Frameltem: TYPE = POINTER TO FrameObject; 

FrameObjectTable: TYPE = RECORD [ 
link: POINTER TO FrameObjectTable, 
subTable: ARRAY [0..0) OF FrameObject]; 

frameTable: POINTER TO FrameObjectTable *- NIL; 

nFrames: CARDINAL <- MaxNFrameOb jects ; 

MaxNFrameObjects: CARDINAL = (Al toDef s . PageSize-l)/SIZE[FrameOb ject] ; 

GetFrameltem: PROCEDURE RETURNS [f: Frameltem] « 
BEGIN 

newTable: POINTER TO FrameObjectTable; 
IF nFrames < MaxNFileObjects THEN 

BEGIN f <- 6f rameTable. subTable[nFrames] ; nFrames *- nFrames + 1; END 
ELSE 

BEGIN 

newTable ^ SystemDef s .Al locateResidentPages[l]; 

newTable. 1 ink <- frameTable; 

FrameTable *- newTable; 

nFrames ^ 1; 

RETUnN[@frameTabl0.subTable[O]]; 
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END; 
END; 

EnumFrameObjects: PROCEDURE [proc: PROCEDURE [f: Frameltem] RETURNS [BOOLEAN]] 
RETURNS [f: Frameltem] - 
BEGIN 

i: CARDINAL; 

table: POINTER TO FrameObjectTable; 
IF frameTable = NIL THEN RETURN[NIL]; 
IF nFrames < MaxNFrameObjects THEN 
FOR i IN [0. .nFrames) DO 

IF proc[f <r ©frameTable. subTab1e[i]] THEN RETURN; 
ENDLOOP; 
FOR table ♦- frameTable. 1 ink , table. link UNTIL table = NIL DO 
FOR i IN [0. .MaxNFrameObjects) DO 

IF proc[f <- 6table.subTable[i]] THEN RETURN; 
ENDLOOP; 
ENDLOOP; 
RETURN[NIL]; 
END; 

ClearFrameObjectTable: PROCEDURE « 
BEGIN 

table: POINTER TO FrameObjectTable; 
UNTIL frameTable » NIL DO 

table <- frameTable; 

frameTable <- f rameTable.l ink; 

SystemDef s. FreeSegment[table]; 

ENDLOOP; 
nFrames ^ MaxNFrameObjects; 
RETURN 
END; 

-- Directory Lookup of File Table 

nFilesToFind: CARDINAL; 

LookupFiles: PUBLIC PROCEDURE =» 
BEGIN 

name: STRING <- [40]; 
CountFilesToLookup: PROCEDURE [f: Fileltem] RETURNS [BOOLEAN] » 

BEGIN 

nFilesToFind <- nFilesToFind + 1; 

RETURN[FALSE]; 

END; 
nFilesToFind ^ 0; 

[] ^ EnumFileObjects[CountFilesToLookup] ; 
DirectoryDef s . EnumerateDirectory[CheckOne] ; 
RETURN 
END; 

CheckOne: PROCEDURE [fp: POINTER TO Al toFileDef s . FP, name: STRING] 
RETURNS [found: BOOLEAN] » 
BEGIN OPEN StringDefs; 
i: CARDINAL; 

dirName: SubStringDescriptor ; 

bed: SubStringDescriptor *- [base: "bcd"L, offset: 0, length: 3]; 
file: Fileltem; 
FOR i IN [0. .name. length) DO 
IF name[i] = ' . THEN 
BEGIN 

IF name.length-i # 5 THEN GOTO UseWholeName; 
dirName <- [base: name, offset: i + 1, length: 3]; 
IF '-EquivalentSubStrings[0dirName, ©bed] THEN GOTO UseWholeName; 
dirName. of fset <- 0; dirName. length <- i; 
GOTO HasBCDExtension; 
END; 
REPEAT 

UseWholeName «> NULL; 
HasBCDExtension «> 
BEGIN 

[found, file] <- FindFileName[@dirName]; 
IF found THEN RETURN [ fhi sl sTheOne[f p , file]]; 
END; 
ENDLOOP; 
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dirName ♦- [base: name, offset: 0, length: name. 1ength-l]; 

[found, file] <- FindFileName[0dirName] ; 

RETURN [IF found THEN ThisIsTheOne[f p, file] ELSE FALSE]; 

END; 

ThisIsTheOne: PROCEDURE [fp: POINTER TO Al toF ileDef s . FP, file: Fileltem] 
RETURNS [BOOLEAN] - 
BEGIN 

f ile.f ileHandle <- SegmentDef s . InsertFile[f p, SegmentDef s.Read]; 
RETURN [(nFilesToFind <- nFilesToFind-l) « 0]; 
END; 

FindFileName: PUBLIC PROCEDURE [name: StringDefs .Substring] 
RETURNS [found: BOOLEAN, file: Fileltem] » 
BEGIN OPEN StringDefs; 

ns: BcdDefs.NameString ^ LOOPHOLE[bcd+bcd. ssOff set]; 
ftb: CARDINAL <- LOOPHOLE[bcd+bcd . f tOf f set] ; 

filename: SubStringDescriptor ^ [base: @ns. string, offset:, length:]; 
MatchName: PROCEDURE [f: Fileltem] RETURNS [BOOLEAN] « 

BEGIN 

IF f.fti = BcdDefs.FTNull THEN RETURN[FALSE] ; 

IF f.fti = BcdDefs.FTSelf THEN RETURN[FALSE]; 

filename, offset <- (f tb+f .f ti) .name; 

filename, length ♦- ns . size[(f tb+f . Fti ) .name]; 

IF LastCharIsDot[@f ilename] THEN name. length ♦- name. length + l; 

RETURN[EquivalentSubStrings [©filename, name]]; 

END; 
f: Fileltem; 

f <- EnumFileObjects[MatchName]; 
RETURN[f^NIL, f]; 
END; 

LastCharlsDot: PUBLIC PROCEDURE [name: StringDefs .Substring] RETURNS [BOOLEAN] 
BEGIN 

RETURN[name.base[name.off set+name.length-1] = '.]; 
END; 

END. .. 



